home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Graphics / TVPaint / Rexx / Glass.rx < prev    next >
Encoding:
Text File  |  1995-11-07  |  961 b   |  67 lines
  1. /*
  2.     param circle
  3.  
  4.     Draw a glass ball
  5.  
  6. */
  7.  
  8.  
  9. options results
  10.  
  11. address 'rexx_TVPaint'
  12.     /*tv_lockuser*/
  13.  
  14.     parse ARG m x y r b
  15.  
  16.     if(m~='Circle')then
  17.     do
  18.         tv_warn 'I need CIRCLE parameters'
  19.         exit
  20.     end
  21.     tv_UpdateUndo
  22.  
  23.  
  24.  
  25.     tv_DensityON
  26.     tv_DensityLineX 0 255 32 0
  27.     tv_DensityLineX 32 0 128 0
  28.     tv_DensityLineX 128 0 255 255
  29.  
  30.     tv_SetDrawMode Color
  31.  
  32.     tv_xcenter
  33.     tv_yclear
  34.  
  35.     delta=r
  36.     delta2=(delta*3)%4
  37.  
  38.     tv_SetApen 255 255 255 255
  39.     tv_SetBpen 0 0 1 255
  40.  
  41.     tv_Brush x-delta2 y-delta2 x+delta2 y+delta2
  42.     tv_wrapx 1
  43.     tv_wrapy 1
  44.  
  45.  
  46.     tv_SetDrawMode Shade
  47.     tv_AreaCircle x+delta2 y+delta2 delta    0 0 0
  48.     tv_AreaCircle x+delta2 y+delta2 delta-1    0 0 0
  49.     tv_AreaCircle x+delta2 y+delta2 delta-2    0 0 0
  50.     tv_AreaCircle x+delta2 y+delta2 delta-3    0 0 0
  51.     tv_AreaCircle x+delta2 y+delta2 delta-4    0 0 0
  52.     tv_SetDrawMode Color
  53.  
  54.     tv_cycleON
  55.     tv_AreaCircle x y delta 0 0 0
  56.     tv_cycleOFF
  57.  
  58.     tv_densityON
  59.     tv_AreaCircle x y delta x-delta%2 y-delta%2 0
  60.     tv_densityOFF
  61.  
  62.     tv_Pen 1
  63.  
  64. /*    tv_unlockuser*/
  65.  
  66.  
  67.